home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / GRAPHICS / GPT35WIN.ZIP / DEMO / WORLD.DEM < prev   
Text File  |  1993-05-11  |  1KB  |  64 lines
  1. #
  2. # $Id: world.demo 3.38.2.6 1992/11/14 02:25:21 woo Exp $
  3. #
  4. #
  5. set title "Gnuplot Correspondences"
  6. set nokey
  7. set noborder
  8. set noyzeroaxis
  9. set noxtics
  10. set noytics
  11. #
  12. # plot world map and correspondent locations as a +
  13. plot 'world.dat' with lines 3 4, 'world.cor' with points 1 2
  14. set title ""
  15. set key
  16. set border
  17. set yzeroaxis
  18. set xtics
  19. set ytics
  20. pause -1 "Hit return to continue"
  21. #
  22. # plot a '3D version using spherical coordinate system' of the world.
  23. set angles degrees
  24. set title "3D version using spherical coordinate system"
  25. set view 70,40,,2.0
  26. set mapping spherical
  27. set parametric
  28. set samples 32
  29. set isosamples 9
  30. set urange [-pi/2:pi/2]
  31. set vrange [0:2*pi]
  32. splot cos(u)*cos(v),cos(u)*sin(v),sin(u) with lines 5 6,\
  33. 'world.dat' with lines 3 4, 'world.cor' with points 1 2
  34. pause -1 "Hit return to continue"
  35. #
  36. # plot a '3D version using cylindrical coordinate system' of the world.
  37. set title "3D version using cylindrical coordinate system"
  38. set view 70,40,,2.0
  39. set mapping cylindrical
  40. set parametric
  41. set samples 32
  42. set isosamples 9
  43. set urange [-pi:pi]
  44. set vrange [-90:90]
  45. splot cos(u),sin(u),v with lines 5 6,\
  46. 'world.dat' with lines 3 4, 'world.cor' with points 1 2
  47. pause -1 "Hit return to continue"
  48.  
  49.  
  50. #
  51. # Clean up:
  52. #
  53. set noparametric
  54. set mapping cartesian
  55. set angles radians
  56. set samples 100
  57. set isosamples 10
  58. set view 60,30,1,1
  59. set xrange [-10:10]
  60. set yrange [-10:10]
  61. set zrange [-10:10]
  62. set auto
  63. set title "" 0,0
  64.